home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / Misc / DXSetup / begin.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-10-08  |  7.0 KB  |  212 lines
  1. VERSION 5.00
  2. Begin VB.Form frmBegin 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "#"
  6.    ClientHeight    =   3540
  7.    ClientLeft      =   1740
  8.    ClientTop       =   1410
  9.    ClientWidth     =   7545
  10.    ClipControls    =   0   'False
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    HasDC           =   0   'False
  21.    Icon            =   "begin.frx":0000
  22.    LockControls    =   -1  'True
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    NegotiateMenus  =   0   'False
  26.    ScaleHeight     =   3540
  27.    ScaleWidth      =   7545
  28.    ShowInTaskbar   =   0   'False
  29.    Begin VB.CommandButton cmdInstall 
  30.       Default         =   -1  'True
  31.       Height          =   1080
  32.       Left            =   330
  33.       MaskColor       =   &H0000FF00&
  34.       Picture         =   "begin.frx":0442
  35.       Style           =   1  'Graphical
  36.       TabIndex        =   0
  37.       Top             =   510
  38.       UseMaskColor    =   -1  'True
  39.       Width           =   1170
  40.    End
  41.    Begin VB.Frame fraDir 
  42.       Caption         =   "#"
  43.       BeginProperty Font 
  44.          Name            =   "MS Sans Serif"
  45.          Size            =   8.25
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   660
  53.       Left            =   135
  54.       TabIndex        =   5
  55.       Top             =   2010
  56.       Width           =   7296
  57.       Begin VB.CommandButton cmdChDir 
  58.          Caption         =   "#"
  59.          BeginProperty Font 
  60.             Name            =   "MS Sans Serif"
  61.             Size            =   8.25
  62.             Charset         =   0
  63.             Weight          =   400
  64.             Underline       =   0   'False
  65.             Italic          =   0   'False
  66.             Strikethrough   =   0   'False
  67.          EndProperty
  68.          Height          =   390
  69.          Left            =   4890
  70.          MaskColor       =   &H00000000&
  71.          TabIndex        =   1
  72.          Top             =   195
  73.          Width           =   2310
  74.       End
  75.       Begin VB.Label lblDestDir 
  76.          Caption         =   "#"
  77.          BeginProperty Font 
  78.             Name            =   "MS Sans Serif"
  79.             Size            =   8.25
  80.             Charset         =   0
  81.             Weight          =   400
  82.             Underline       =   0   'False
  83.             Italic          =   0   'False
  84.             Strikethrough   =   0   'False
  85.          EndProperty
  86.          Height          =   240
  87.          Left            =   135
  88.          TabIndex        =   6
  89.          Top             =   300
  90.          Width           =   4440
  91.       End
  92.    End
  93.    Begin VB.CommandButton cmdExit 
  94.       Cancel          =   -1  'True
  95.       Caption         =   "#"
  96.       BeginProperty Font 
  97.          Name            =   "MS Sans Serif"
  98.          Size            =   8.25
  99.          Charset         =   0
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   420
  106.       Left            =   2610
  107.       MaskColor       =   &H00000000&
  108.       TabIndex        =   2
  109.       Top             =   3030
  110.       Width           =   2205
  111.    End
  112.    Begin VB.Line linTopOfExitButtonIfNoDestDir 
  113.       Visible         =   0   'False
  114.       X1              =   2670
  115.       X2              =   4725
  116.       Y1              =   2280
  117.       Y2              =   2280
  118.    End
  119.    Begin VB.Label lblInstallMsg 
  120.       AutoSize        =   -1  'True
  121.       Caption         =   "*"
  122.       BeginProperty Font 
  123.          Name            =   "MS Sans Serif"
  124.          Size            =   8.25
  125.          Charset         =   0
  126.          Weight          =   400
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       Height          =   195
  132.       Left            =   1725
  133.       TabIndex        =   4
  134.       Top             =   915
  135.       Width           =   5565
  136.       WordWrap        =   -1  'True
  137.    End
  138.    Begin VB.Label lblBegin 
  139.       AutoSize        =   -1  'True
  140.       Caption         =   "#"
  141.       BeginProperty Font 
  142.          Name            =   "MS Sans Serif"
  143.          Size            =   8.25
  144.          Charset         =   0
  145.          Weight          =   400
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       Height          =   192
  151.       Left            =   288
  152.       TabIndex        =   3
  153.       Top             =   132
  154.       Width           =   6456
  155.       WordWrap        =   -1  'True
  156.    End
  157. Attribute VB_Name = "frmBegin"
  158. Attribute VB_GlobalNameSpace = False
  159. Attribute VB_Creatable = False
  160. Attribute VB_PredeclaredId = True
  161. Attribute VB_Exposed = False
  162. Option Explicit
  163. Private Sub cmdChDir_Click()
  164.     ShowPathDialog
  165.     If gintRetVal = gintRET_CONT Then
  166.         lblDestDir.Caption = gstrDestDir
  167.         cmdInstall.SetFocus
  168.     End If
  169. End Sub
  170. Private Sub cmdExit_Click()
  171.     ExitSetup Me, gintRET_EXIT
  172. End Sub
  173. Private Sub cmdInstall_Click()
  174.     If IsValidDestDir(gstrDestDir) Then
  175.         Unload Me
  176.         DoEvents
  177.     End If
  178. End Sub
  179. Private Sub Form_Load()
  180.     Dim intRes As Integer
  181.     Dim yAdjust As Integer
  182.     SetFormFont Me
  183.     fraDir.Caption = ResolveResString(resFRMDIRECTORY)
  184.     cmdChDir.Caption = ResolveResString(resBTNCHGDIR)
  185.     cmdExit.Caption = ResolveResString(resBTNEXIT)
  186.     lblBegin.Caption = ResolveResString(resLBLBEGIN)
  187.     cmdInstall.ToolTipText = ResolveResString(resBTNTOOLTIPBEGIN)
  188.     Caption = gstrTitle
  189.     If gfForceUseDefDest Then
  190.         intRes = resSPECNODEST
  191.     Else
  192.         intRes = resSPECDEST
  193.     End If
  194.     lblInstallMsg.Caption = ResolveResString(intRes, gstrPIPE1, gstrAppName)
  195.     lblDestDir.Caption = gstrDestDir
  196.     If gfForceUseDefDest Then
  197.         'We are forced to use the default destination directory, so the user
  198.         '  will not be able to change it.
  199.         fraDir.Visible = False
  200.         'Close in the blank space on the form by moving the Exit button to where this frame
  201.         'currently is, and adjusting the size of the form respectively
  202.         yAdjust = cmdExit.Top - linTopOfExitButtonIfNoDestDir.Y1
  203.         cmdExit.Top = cmdExit.Top - yAdjust
  204.         Height = Height - yAdjust
  205.     End If
  206.     EtchedLine Me, fraDir.Left, cmdExit.Top - cmdExit.Height \ 2, fraDir.Width
  207.     CenterForm Me
  208. End Sub
  209. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  210.     HandleFormQueryUnload UnloadMode, Cancel, Me
  211. End Sub
  212.